home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed38.d64 / practice 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  148 lines
  1. 100 POKE53280,0:POKE53281,0:POKE53272,23
  2. 150 PRINT"[147][158]             [215][200][195] [197]NTERPRISES"
  3. 155 GOSUB390:GOSUB340:PRINT"[153]                                        [146]";
  4. 160 PRINT"                                        [146]";
  5. 162 PRINT"            [197][206][199][204][201][211][200][160][197][216][197][210][195][201][211][197][211]           [146]";
  6. 165 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  7. 170 PRINT"                                        [146]";
  8. 175 PRINT"         *  [211]PELLZZZZZZ[218]APPER  *        [146]";
  9. 180 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  10. 182 PRINT"              [208]RACTICE - 2              [146]";
  11. 184 PRINT"[153]                                        [146]";
  12. 186 PRINT"                                        [146]":GOSUB391
  13. 188 PRINT"                                      [152][212][153]"
  14. 190 GOSUB290
  15. 195 GOTO500
  16. 200 REM CORRECT
  17. 202 GOSUB300
  18. 204 PRINT"[153]               [195][207][210][210][197][195][212]!                 [146]"
  19. 206 GOSUB392:RETURN
  20. 210 REM WRONG
  21. 212 GOSUB320
  22. 214 PRINT"[150]           [206][207]!!   [212]RY AGAIN!            [146]":GOSUB392
  23. 216 PRINT"[145][145]                                        [145][145]
  24. 218 [153]"ONONON                                        ONONON":[142]
  25. 290 [141]392:[141]360
  26. 292 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
  27. 294 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[167]294
  28. 296 [139]R$[178]"T"[167][141]900
  29. 298 [153]"LOAD":[141]390:[142]
  30. 299 :
  31. 300 [143] <YES> SOUND
  32. 302 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  33. 304 [151]54296,15:[151]54277,42:[151]54278,250
  34. 306 [151]54276,23:[151]54273,23:[151]54272,191
  35. 308 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
  36. 310 [151]54296,0:[142]
  37. 320 [143] <NO> SOUND
  38. 322 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  39. 324 [151]54296,15:[151]54277,18:[151]54278,242
  40. 326 [151]54276,33:[151]54273,4:[151]54272,48
  41. 328 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  42. 330 [151]54296,0:[142]
  43. 340 [143] <BLIP> SOUND
  44. 342 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  45. 344 [151]54296,7:[151]54277,42:[151]54278,250
  46. 346 [151]54276,23:[151]54273,23:[151]54272,191
  47. 348 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  48. 350 [151]54296,0:[142]
  49. 360 [143] <DING> SOUND
  50. 362 S[178]54272:[151]54296,15:[151]S,50:[151]S[170]1,35:[151]S[170]2,0:[151]S[170]3,8:[151]S[170]5,0
  51. 364 [151]S[170]6,10[172]16[170]9:[151]S[170]4,14:[151]S[170]4,65:[129]Q[178]1[164]20:[151]S[170]4,64:[142]
  52. 370 [143] <VERY WRONG SOUND>
  53. 372 S[178]54272:[151]54296,15:[151]S,32:[151]S[170]1,3:[151]S[170]2,128:[151]S[170]3,13
  54. 374 [151]S[170]5,4[172]16[170]0:[151]S[170]6,10[172]16[170]8
  55. 376 [151]S[170]24,15:[151]S[170]4,65:[129]Q[178]1[164]500:[130]:[151]S[170]4,64:[142]
  56. 390 [129]T[178]1[164]600:[130]:[142]
  57. 391 [129]T[178]1[164]1000:[130]:[142]
  58. 392 [129]T[178]1[164]2000:[130]:[142]
  59. 393 [129]T[178]1[164]3000:[130]:[142]
  60. 394 [129]T[178]1[164]4000:[130]:[142]
  61. 395 [129]T[178]1[164]5000:[130]:[142]
  62. 399 :
  63. 400 [153]"LISTLOAD (null)PELLINGZZZ(null)APPER (null)-2        RIGHT$TEM "N
  64. 410 [142]
  65. 500 [153]"LOAD  (null)OW YOU CAN LEN(null)(null)(null)LENLEFT$ THOSE NASTY
  66. 502 PRINT"  FREQUENTLY MISSPELLED WORDS!
  67. 504 [153]"OPEN  (null)HIS IS ONE OF A SERIES OF GAMES
  68. 508 PRINT"  DESIGNED TO HELP YOU MASTER THE
  69. 512 [153]"  CORRECT SPELLING OF SOME OF THE
  70. 516 PRINT"  REALLY TRICKY WORDS IN THE [197]NGLISH
  71. 520 [153]"  LANGUAGE.
  72. 524 PRINT"  [201] WILL SHOW YOU TWO WORDS.  [207]NE OF
  73. 528 [153]"  THESE WILL BE SPELLED CORRECTLY.
  74. 532 PRINT"  [217]OUR TASK IS TO SELECT AND TYPE
  75. 536 [153]"  THE CORRECTLY SPELLED WORD.
  76. 540 PRINT"  [217]OU WILL HAVE TWO CHANCES TO SPELL
  77. 544 [153]"  A WORD CORRECTLY; THEN THAT WORD
  78. 548 PRINT"  WILL BE DISPLAYED.
  79. 552 [153]"  (null)LEASE RECORD ANY WORDS THAT YOU
  80. 556 PRINT"  FUMBLE.[145]"
  81. 560 GOSUB290
  82. 590 PRINT"AND AWAY WE GO..........":GOSUB300:GOSUB391
  83. 600 N=1
  84. 610 FOR G=1TO20:FOR I=1TO3:K=0:GOSUB400:N=N+1
  85. 620 READA$,B$,C$
  86. 630 PRINT"[159] [215]HICH OF THESE WORDS IS SPELLED         CORRECTLY?
  87. 640 [153]"           "A$;B$
  88. 650 [153]"SYS ":[133]Z$
  89. 660 [139]Z$[178]C$[167][141]200:[137]690
  90. 670 [139]K[178]1[167][141]370:[153]"OPEN (null)HE CORRECT SPELLING IS "C$"OPEN."
  91. 675 [139]K[178]1[167] [141]290:W[178]W[170]1:[137]690
  92. 680 K[178]K[170]1:P[178]P[170]1:[141]210:[137]650
  93. 690 [130]G
  94. 699 :
  95. 700 [153]"LOAD  (null)PELLINGZZZZAPPER (null)-2    (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$  WAIT
  96. 705 L=P-W:C=20-P
  97. 710 PRINT"   [158] [195]ORRECT ON FIRST ATTEMPT....."C:GOSUB300:GOSUB391
  98. 715 PRINT"   [159] [195]ORRECT ON SECOND ATTEMPT...."L:GOSUB320:GOSUB391
  99. 720 PRINT"   [150] [194][204][207][207][208][197][210][211]....................."W:GOSUB370:GOSUB391:PRINT""
  100. 725 IF C=20THENPRINT"[145][145][158]                [197][216][195][197][204][204][197][206][212]!              [146]"
  101. 730 GOSUB290
  102. 750 PRINT"[147][158] [217]OU HAVE A CHOICE:
  103. 755 [153]" (null)RESS  (null) WAIT TO REPEAT PRACTICE (null)-2
  104. 760 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  105. 765 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]765
  106. 770 [139] R$[178]"R"[167] [140]:[137]100
  107. 772 [139] R$[178]"(null)"[167] [140]:[137]100
  108. 775 [153]"LOADSYS (null)ETURNING TO THE DISK MENU.
  109. 780 LOAD"MENU",8
  110. 785 RUN
  111. 790 END
  112. 799 :
  113. 899 :
  114. 900 PRINT"[147]   [200]ERE ARE THE WORDS USED IN [211]PELL        [208]RACTICE 2
  115. 905 [153]"OPEN   AGGRESSIVE       EXAGGERATE
  116. 910 PRINT"   NECESSARY        QUESTIONNAIRE
  117. 915 [153]"   APPARENT         EXCELLENT
  118. 920 PRINT"   OCCASIONALLY     SUPPRESSION
  119. 925 [153]"   COMMIT           FULFILL
  120. 930 PRINT"   OCCURRED         UNNECESSARY
  121. 935 [153]"   COMMITTEE        INTELLIGENCE
  122. 940 PRINT"   OMISSION         VACUUM
  123. 945 [153]"   MISTAKES         ALLOWING
  124. 950 PRINT"   ACCOMMODATION    SURPRISING"
  125. 960 GOSUB290:RETURN
  126. 999 :
  127. 1000 DATA"AGGRESSIVE /"," AGRESSIVE","AGGRESSIVE"
  128. 1010 DATA"NECESARY /"," NECESSARY","NECESSARY"
  129. 1020 DATA"EXAGGERATE /"," EXAGERATE","EXAGGERATE"
  130. 1030 DATA"QUESTIONNAIRE /"," QUESTIONAIRE","QUESTIONNAIRE"
  131. 1040 DATA"APARENT /"," APPARENT","APPARENT"
  132. 1050 DATA"EXCELENT /"," EXCELLENT","EXCELLENT"
  133. 1060 DATA"OCCASSIONALLY /"," OCCASIONALLY","OCCASIONALLY"
  134. 1070 DATA"SUPPRESSION /"," SUPRESSION","SUPPRESSION"
  135. 1080 DATA"COMMIT /"," COMITT","COMMIT"
  136. 1090 DATA"FULLFILL /"," FULFILL","FULFILL"
  137. 1100 DATA"OCCURRED /"," OCURRED","OCCURRED"
  138. 1110 DATA"UNNECESSARY /"," UNECESSARY","UNNECESSARY"
  139. 1120 DATA"COMMITTE /"," COMMITTEE","COMMITTEE"
  140. 1130 DATA"INTELIGENGE /"," INTELLIGENCE","INTELLIGENCE"
  141. 1140 DATA"OMISSION /"," OMMISION","OMISSION"
  142. 1150 DATA"VACCUM /"," VACUUM","VACUUM"
  143. 1160 DATA"MISTAKES /"," MISSTAKES","MISTAKES"
  144. 1170 DATA"ALLOWING /"," ALOWING","ALLOWING"
  145. 1180 DATA"ACCOMODATION /"," ACCOMMODATION","ACCOMMODATION"
  146. 1190 DATA"SURPPRISING /"," SURPRISING","SURPRISING"
  147. 2000 REM WHC 92:09:19
  148.